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MODULE EXECUTOR TLE Executor control’ 
T = *'v04-002' 


BEGIN 


! 
RRR AERERARAAERA AAA AEEEAAH ETEK AETHER ETE AA AAT REAR eee eRe eeeeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ies THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE — AND og ta 
i® , ie Me ANCE WITH THE TERMS OF SUCH LICEN ton” ND WITH THE 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- pe eokat thn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS BILIT 


IBILIT 
!® SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


® 
® 
® 
fe 
® 
* 
id 
® 
& 
' * 
ie TRANSFERRED. . 
aa 
® 
® 
® 
® 
® 
® 
® 
* 
® 


SRR RRA RAA RARER AAAs 
' 


'o- 
FACILITY 
Job controller. 


i ABSTRACT: 
: This module contains the routines that control executors. 


* ENVIRONMENT : 
VAX/VMS user and kernel mode. 


i 

i 

i 

i 

i 

i 

i 

loo 

i 

: AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
MODIFIED BY: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


V04-002 JAK0234 J A Krycka 11-Sep-1984 
Increase process Bolt a timer to 2 planes. 
v04-001 eae 10-Sep-1984 


Set flag in START EXECUTOR. JOB if a job could not be 
placed in execution and the job header record is released. 


v03-005 $HZ0001 gtephen H. Zalewski, 07-Dec-1983 
Allow a process 5 seconds to rundown before reissueing 
the force exit in the next higher access mode. 


v03-004 MLJ0115 Martin L. Jack, 30-Jul-1983 14:41 


a a a ak at at a = = = = = 2 Ss 2 os 2 OS Ne a it 
. —- 
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3 28 2 } Changes for job controller baselevel. 

; 69 1} vO3-003 MLU0114 Martin L. Jack, 23-Jun-1983 4:58 
2 8 : : Changes for job control er baselevel. 

: e 063 1: v03-002 MLJ0113 Martin L. Jack, 26-May-1983 21:06 
3 8 bee ; Changes for job cantretter baselevel. 

; 66 066 1 i v03-001 MLU0112 artin L. Jack, 29-Apr-1983 2:57 
:. oF 067 1! Changes for job meek be 7 baselevel. 

;.6| CUS 0068 1! 

; «669 0069 1 !ee 
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; 9079 1 REQUIRE ‘SRC$:JOBCTLDEF'; : 
: 1111 «1 ; 
3 Wiig 1 : 
: 1113 1 FORWARD ROUTINE : 
; 1114 «1 START_EXECUTION, ; 
; 1115 1 START_EXECUTOR JOB: NOVALUE, ‘ 
: 1116 1 ABORT_EXECUTION, ; 
: W117 «1 ABORT-EXECUTOR JOB, ‘ 
: 1118 #1 PAUSE EXECUTION, : 
: 1119 1 RESUME EXECUTION, : 
: 1} 9 : RESET_EXECUTOR_QUEUE : NOVALUE; : 
: 11 ¢ 1 : 
: 11 1 EXTERNAL ROUTINE ; 
; 1104 1 ALLOCATE_MEMORY, : 
; 1125 1 COMPLETE JOB: NOVALUE, ; 
: 11 $ 1 CREATE _SRQ_RECORD, : 
: 11 1 DEALLOCATE MEMORY: NOVALUE, ; 
: 1128 #1 ENTER_PROCESS DATA: NOVALUE ; 
: 90 1129 1 FIND PROCESS BATA: L_OUTPUT_3, : 
; 91 1130 1 PAUSE_SYMBIONT_TASK: NOVALUE, 3 
: 9 1131 1 READ_RECORD | : 
= 11 g 1 RELEASE RECORD: NOVALUE, | ; 
s  % 11 1 RESET_SYMBIONT_STREAM NOVALUE, : 
; | «9S 1134 1 ESUME_SYMBIONT_TASK NOVALUE, 

; (96 1135 1 REWRITE RD: NOVALUE, 

: 697 1136 1 START_SYMBIONT_TASK: NOVALUE, 

; 11 1 TOP_SY _ TASK: NOVALUE, 

: 99 1138 1 UPDATE_GETQUI “DATA: NOVALUE; 

: 100 1139 1 

: 101 1140 1 

: 108 1141 1 EXTERNAL 

: 10 1148 1 ALL_PRIVILEGES, 

: 104 1143 1 NLAO_DESC; 

3; 105 1144 1 

> 106 1145 1 | 

: 107 1146 1 LINKAGE 

: 108 1147 1 EXESEPID_TO_PCB_LINKAGE = 

> 109 1148 1 JSB(REGISTER=0) : | 

: 110 1149 1 PRESERVE(1, 2, 3, 4, 5) NOTUSED(6, 7, 8, 9, 10, 11), 

> 111 1150 1 

: Wg 1151 1 

+ 11 1138 1 SCHSFORCEDEXIT_LINKAGE = 

> 114 1153 1 JSB(REGISTER=0, REGISTER=3 REGISTER=4): 

3 (115 1154 1 NOPRESERVE(1, 2) PRESERVE(5) NOTUSED(6, 7, 8, 9, 10, 11); 

: 116 1155 1 

: 117 1156 1 

> 118 1157 1 EXTERNAL ROUTINE 

: 119 1158 1 EXESEPID_TO_PCB: EXESEPID_TO_PCB_LINKAGE ADDRESSING MODE (GENERAL), 

: 120 1132 SCHSFORCEDERIT: SCHSFORCEDEXTT_LINKAGE ADDRESSING_MODE (GENERAL) ; 

: 133 1161 1 

a 2 116¢ 1 FORWARD 

: 126 1163 1 LOCK_IPL; 

> 125 1164 1 

> 126 1165 1 

: 127 1166 1 BUILTIN 


3 
EXECUTOR ———Executor control 1$-$e0-1964 9:08:58 yax-tt BLiss-2 v4.0- 
: 128 1167 1 MTPR; 
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3 } ° 1368 ! GLOBAL ROUTINE START_EXECUTION(SMQ_N,SMQ,SJH_N,SJH)= | : 
. 1190 | 14s | ; 
.3 i Wh 4: | ; 
; 134 1106 1 ! FUNCTIONAL DESCRIPTION: | : 
s 135 1175 1! This routine performs the actual communication that starts a job on an : 
3 : Wife ! executor. : 
: 138 1176 4 i INPUT PARAMETERS: 
; 139 W77 1! SMQ_N - Record number of SMQ. : 
> 140 1178 1 | SMQ - Pointer to SMQ. : 
; 141 1179 1! SJH_N - Record number of SJH. : 
; 146 ee } SJH - Pointer to SJH. : 
° 7 | a 
: 146 1186 1 ! IMPLICIT INPUTS: | : 
Pa eerie : 
: 147 1185 1 | OUTPUT PARAMETERS: 2 
hig oe ai | 
; 150 1188 1 | IMPLICIT OUTPUTS: | : 
Be gO Eh ies om 
° . | ae 
; 13 1191 1 ! ROUTINE VALUE: : 
3 138 1138 : Completion status. : 
: 156 1194 1 1 SIDE EFFECTS: ; 
; 157 1195 1} NONE | : 
; 138 1196 1! : 
2 ei Ea! 
HG seem hea: 
: 163 1201 $ SMQ: REF BBLOCK, ! Pointer to SMQ : 
; 164 1202 2 SJH: REF BBLOCK; ! Pointer to SJH : 
: 18 1302 3 
> 167 1205 2 IF .SMQCSMQ$V_BATCH] | ; 
: 168 1206 THEN | : 
: 1% 1308 LOCAL 
> 171 1209 IMAGE _BUFFER: VECTOR(63,BYTEJ,! Buffer for image name : 
s 2 1210 3 IMAGE DESC: ECcTOR(2), ! Descriptor for image name : 
: 173 1211 ; PRCNAM_BUFFER: VECTOR(C15,BYTEJ,! Buffer for process name 3 
3; «174 1 \¢ PRCNAM_DESC: vECcTOR(2), ! Descriptor for process name : 
. 37S 1213 3 CNAM, ' Process name parameter : 
; 176 1214 3 STSFLG: BBLOCK(4), ! Process status : 
.° ir 1215 STATUS; ! Status return : 
iw BM ai 
: 199 } \3 Set up the process name as ‘‘BATCH_n"’. : 
; 18 1536 PRCNAM_DESCCO] = ZALLOCATION(PRCNAM_BUFFER); | ; 
: 18 1221 PRCNAM_DESCC1] = PRCNAM_BUFFER; : 
> 184 P ieee $FAO( | : 
3; «6185 P 1 SDESCRIPTOR(*BATCH_!UL"), : 
> 186 P 1224 PRCNAM_DESC, ; 


Nn 3 | 
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} 


; 187 P 1225 PRCNAM_DESC 

; ise 1 § PRUNES TMSL ENTRY NUMBER) ; 

: 156 1556 

8 

; 131 ! 2 Set up the image name as ‘’SYSSSYSTEM:name.EXE'’. | 

; 138 1231 HAGE -DESCED) = ZALLOCATION(CIMAGE_BUFFER); 

3 194 1 ¢ IMAGE_DESCL1) = IMAGE_BUFFER; 

: 6195 P 1 $F AOC 

: 196 P 1234 SDESCRIPTOR('SYSSSYSTEM: !AC.EXE"), 

: 197 P 1235 IMAGE _DESC, 

; 198 P 1936 IMAGE ~DESC 

? P 1237 (IF CASRCHAR(SJHCSJH$T_CLIJ) EQL 0 

; 200 P 1 $8 THEN vets BYTE (ZASCIC "LOGINOUT') | 

; 201 1239 ELSE SJHCSJH$T_CLIJ)); 

. ns | 

5 spe ists } Set up the process status. 

; 206 1Sez 3 STSFLG = PRCSM_BATCH; | 

; 207 1245 3 IF NOT .SMOCSMOSV_SWAP) THEN STSFLGCPRC$V_PSWAPM] = TRUE; 

: $05 1509 3 

3 $39 ists ; The following loop is executed at most twice. 

; sig 1250 ; PRCNAM = PRCNAM_DESC; 

3; at 193] WHILE TRUE DO 

: Sis 1585 regen 

3 $18 1$36 ? Try to create the process. 

3 $1 P 1256 4 STATUS = SCREPRC( 

3; 219 P 1257 4 PIDADR=SJHCSJHSL_EXECUTOR_PIDJ, 

: 220 P1258 4 MAGE=IMAGE_DESC, 

3 (del P1259 4 INPUT=NLAO_BESC 

: 222 P1260 4 OUTPUT=PRCNAM_DESC, 

3 €e3 P 1261 4 ERROR=PRCNAM_BESC 

3 224 P 1262 4 PRVADR=ALL_PRIVILEGES, 

3 $87 P 1263 4 PRCNAM=.PRUENAM, 

: 26 P 1264 4 BASPRI=.SMQCSMQ$B_BASE_PRIORITY], 

s def P 1265 4 UIC=.JBC_UIC, | 

: STSFLG=.STSFLG); 
228 1266 4 SFLG=.5 

ahaa | 

3; 231 1565 4 IF NOT .STATUS 

: $36 1270 4 THE 

3 th 13re : BEGIN | 

; 235 1 5 5 ' Create failed. If the status is not ‘‘duplicate process name'’, or 

5 <2 1274 5 ! if a create has already been tried with no name, give up. 

: $35 162? 5 Otherwise, loop to try creation with no name. 

: $3 1378 3 IF .STATUS<0,16> NEQ SS$_DUPLNAM OR .PRCNAM EQL 0 

: $¢9 1678 é THEN RETURN .STATUS; 

s 41 127 PRCNAM = Q; 

: $5 1280 5§ E 

s 26 1281 4 ELSE 
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EXITLOOP; 
D 


' Create succeeded. Record the batch process in the process database 
and mark the job executing. 


ENTER_PROCESS DATACPDE -* BATCH, .SJHCSJHSL_EXECUTOR_PIDJ, .SMQ_N, .SJH_N); 
sants3 REFERENTE _C QUEUE _REFERENCE_COUNT + 1;~ 
SJHS$V TPKE CUTING). = “TRUE: 


BEGIN 

LOCAL 
SQR_N, ! Record number of SQR 
SQR: REF BBLOCK; ! Pointer to SQR 


Start the first file in the job. 

copy TIME(CUR_TIME, SMQCSMQ$Q Ach BEGTIM]); 

SQR_A = .SJHCSJHSL CURRENT . FICE_CAKPT 

IF [SQR_N EQL 0 THEN Or = CE aH onde FILE_LISTI; 


S 
START a RELOND i ‘sa ‘A, -SMQ, .SJH_N, .SJH, .SQR_N, .SQR); 


, Seeete SJH. 
SJHSL ~CONDI TION. IY = 0; 
SJHSL~ ope ieee = 0; 
SINSL CONDITION. J = 0; 


TITLE execute Executor control 
-IDENT \V04-002\ 


~PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_ aoe uae 
00000 DIAG Rie 
00060 DIAG_COUNT: 


LKB 96 
000CO DIAG FUNeS: ‘ 
000C4 WORK AREA: Hf 
000FO SNDJBC _cOUNT: 

-BLKB 132 
00174 GETQUI_COUNT: 
-BLKB 40 


EXECUT Executor control 1b-se =-Sep-1984 00:03:38 AX-11 Bliss-32 V4.0-74 Pa 8 
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0019¢ SNDACC_COUNT 
00188 SNDSMB COUNT : 
00200 DIAG_STORAGE END: 
00200 FLAGS: | BLK 
00204 IMAGE -DuiP STSFL 
00208 THIS_SYSiD: 

BLKB 


S35 cosine 


00218 HOURLY veri! 
00220 HOURLY “pARARG 
00234 SYMBIONT “COUNT ‘ 
00238 QUEUE -REFERENCE_ COUNT: 
0023C MBX Je 
oRger . .. na ; 
00244 LKB 

00248 MEMORY. “HEE QUEUES: 
00270 NONAST_WORK QUEUE: 
00278 BCB_FREE TIst: 
0027C BCB -ACTIVE Lists 
00280 GQL_FREE_LIST: 
00284 GQL -ACTIVE baste 
00288 OPEN_GETQUI LIST: 
0028C PROCESS OAT LIS 
00290 SYMBIONT_CONTROL: 
00294 SPARE _AREA: 

002A0 REMOTE wi Quest zt 
002A8 QUEUE frie tk ha 
002B0 QUEUE _LOCK a 


Ny Oo DO NYO LALO-~N 
Oo “ Nm 


om s 
let 


poge B& RSP: -BLKB 
02CO JBC “PRIORITY: 


4 
4 
4 
4 
4 
T: 
4 
4 
1 
K 
8 
8 
8 
8 

-BLKB 4 

002C4 JBC_PRIVILEGES: 
-BLKB 8 


i 


L 
QOE00 VALUE -STORAGE E BASE! 
QOEOO ITEM present: , 
QOE20 VALUE_GETQUI _BASE: 


| dD 4 
EXECUT Executor control 16-Sep-1984 AX-11 Bliss-32 v4. Page 9 E 
SOEsbOo en eee= 138s 98: 95:3F = FAKELT Okt sg se Ve 288 «2 9 03) V 
O02CC JBC_QUOTAS: - : 
639 3 -BLKB 2 $ 
0310 JBC YIC: gbuxe 4 : 
0314 Quede_ 3 
of 80 ; 
00364 QUEUE RAB 3 
BLK 68 3 
003A8 QUEUE_NAM: : 
BLK 96 ; 
00408 QUEUE_XAB: 3 
-BLKB 88 3 
00460 QUEUE_RSA: ; 
.BLK 255 : 
0055F .BLK 1 : 
00560 QUEUE_ALQ: : ; 
00564 QUEUE _MBF : : 
BLK 1 : 
00565 -BLKB 3 ; 
00568 ACCOUNTING ABS: , ; 
00570 ACCOUNTING RABS . : 
00578 ACCOUNT FAB A: — ; 
005C8 ACCOUNT_RAB A: we : 
0060C ACCOUNT_NAM_A: o : 
0066C ACCOUNT_RSA_A: ; 
-BLRB 255 : 
00768 .BLKB 1 : 
0076C ACCOUNT_FAB B: ; 
0078C ACCOUNT_RAB B: : 
-BLR 68 : 
00800 ACCOUNT_NAM B: : 
.B R 96 | : 
00860 ACCOUNT_RSA B: : 
-BLRB 255 | : 
00960 DIAG_FAB: | : 
. LKB 80 | e 
009B0 DIAG_RAB: 3 
-BLKB 68 3 
009F4 MBX_CHAN: : 
-BLKB 4 3 
009F8 MBX_I0SB: : 
LKB 8 3 
QOAOC MBX BUFFER: : 


— 
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00E20 
00E26 
OOE2A 
00E 32 
00E33 
00E 34 
QOE3A 
00E44 
00E45 
00E4B 
OOE4C 
QOESC 
00E62 
00E68 
OOES6C 
00€70 
00E78 
QOE7E 
00E82 
OOE8C 
OOE8E 
OOE SF 
00EB3 
OOEB9 
OOEBF 
QOECS 
QOEC9 
OOECA 


AX-11 Blis 
JOBCTL.SRC 


-32 v4.0-7 

CJEXECUTOR. 83 32 

VALUE _ACEDUNTING MESSAGE: 

VALUE “ACEBURTING TYPES: 

VALUE “arin TIME : 

VALUE “ALIGNMENT. PAGES: 

VALUE BASE PRIORITY: 

VALUE patch INPUT : 

VALUE “Baik BUTPUT: 

VALUE -BuFFER COUNT: 

VALUE _CHARACTERISTIC _NAME : 

VALUE ~CHARACTERISTIC, NUMBER : 

VALUE ~CHARACTERISTICS: 

VALUE CHECKPOINT DATA: 

VALUE _CLI: . 

VALUE_CPU DEFAULY 

VALUE_CPU_LIMIT: 

VALUE DESTINATION. QUEUE : 

VALUE pevite NAME: 

VALUE_ENTRY_NUMBER: 

VALUE _ENTRY NUMBER_OUTPUT: 

VALUE_EXTEND QUANTITY: 

VALUE File -COPuE§: 

VALUE _FILE rADENT JE ICATION: 

VALUE _FILE “SETUP MODULES: 

VALUE FILE SPECIFICATION: 

VALUE_FIRST_PAGE: 

VALUE _PORM_DESCRIPTION: 

VALUE _FORM LENGTH: 

VALUE_FORM_MARGIN_BOTTOM: 
-BCKB 17 


<m 
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OOECB VALUE_FORM MARGIN LEFT: 
OOECD VALUE FORM MARGIN_RIGHT 
OOECF VALUE FORM MARGIN. TOP: 
OOEDO VALUE_FORM NAME : 
QOEDS VALUE_FORM_NUMBER: 
OOEDA VALUE _FORRG 
OOEE2 VALUE FORM’ SETUP 
OOEE8 VALUE_FORM STOCK: 
OOEEE VALUE_FORM WIDTH: 
OOEFO VALUE -GEHERIC. TA 
01204 VALUE_JOB COPIES: 
01205 VALUE _JO8 LIMIT: 
01206 VALUE JOB NAME 
0120¢ VALUE_JOB RESET MODULES: 
012€2 VALUE JOB SIZE MAXIMUM: 
012E6 VALUE_JOB SIZE MINIMUM: 
012EA VALUE_JOB_STATUS_OUTPUT: 
012F4 VALUE “LAST PAGE: 
012F8 VALUE -LIBRARY _ SPECIFICATION: 
012FE VALUE_LOG QUEUE : 
01306 VALUE_LOG SPECIFICATION: | 
0130C VALUE_NOTE: | 
01312 VALUE “OPERATOR REQUEST: 
01318 VALUE -ovik Bic: ‘ 
0131C VALUE_PAGE E SETUP MODULES: 
01322 VALUE PARAMETER. i 
01328 VALUE PARAMETER 2: 

: 


MODULES: 


Oa ODN OOD HDX =ZrZ~ 


0132E VALUE _PARANETER 
01334 VALUE _PARAME TER 


Oa emer meee IEasciats CRMFRE ML MSettRT,, MO 
0133A VALUE PARARETER.§: 
01340 VALUE PARAMETER, 6: 
01346 VALUE PARAMETER, 
0134C VALUE_PARAMETER_ 
01352 VALUE PRIORITY: 
01353 VALUE PROCESSOR: 
VALUE _PROTECTION: 
0135D VALUE -0vUe: 
01363 VALUE_QUEUE FILE SPECIFICATION: 
01369 VALUE.RECATIVE,PAGE: 
0136D VALUE _RESERVED_INPUT_1: | 
0136E VALUE .RESERVED_INPUT_2: | 
01370 VALUE_RESERVED_INPUT_3: 
01374 VALUE RESERVED. INPUT_4: 
0137A VALUE ~RESERVED_ OUTPUT_1: | 
01384 VALUE oRESERVED. OvrPUT. 2: 
0138E VALUE SEARCH STRING: 
01394 VALUE -SC3NODE. _NAME : 
0139A VALUE_WSDEF AULT: 
0139C VALUE “uségient: 
0139F VALUE “usdubta: , | 
013A0 VALUE "STORAGE “END: | 
-BLKB™ 0 


BEANO FTO” = COONOCOD 


o 
oe 
Ww 
wu 
~o 


-PSECT CODE,NOWRT,2 


4C 55 21 SF 48 43 54 41 42 80000 P.AAB: .ASCII \BATCH_!UL\ : 
0009 -BLKB 3 

st 4 OO00C P.AAA: .LON 9 : 

a * 00010 -ADDRESS P.AAB : 

2 43 41 21 SA 4D 45 54 53 59 53 24 23 23 ? Obey P.AAD: .ASCII \SYSSSYSTEM:!AC.EXE\ : 
00 8 -BLKB ¢ 

44's BES 0028 P.AAC: .LONG 8 : 

00000000" 0002C -ADDRESS P.AAD : 


Se eS Pa eas Pe wake 


Executor control 16-Sep-1984 :03:38 AX-11 Bliss-32 V4.0-74 Page 13 
1e-Sep-19 4 90:93:38 JOBCTL.SRCJEXECUTOR.B32;2 ’ (3) 
54 55 4F GE 49 47 GF 4C 08 00030 P.AAE: .ASCII <8>\LOGINOUT\ : 
JBC$_CLOSEOUT= $ 3 
JBCS-NOCMKRNL= 
JBC$-NOOPER= 725 
JBCS$_NOSYSNAM= 726404 
JBCS$_OPENIN= 6639 
JBC$"OPENOUT= 6640 
JBCS_READERR= 6641 
JBC$"WRITEERR= 664 
-EXTRN ALLOCATE_MEMORY 
-EXTRN COMPLETE-JOB, CREATE_SRQ_RECORD 
SEXTRN DEALLOCATE MEMORY 
-EXTRN ENTER_PROCESS DATA 
-EXTRN FIND_PROCESS BATA 
-EXTRN PAUSE_SYMBIONT_TASK 
-EXTRN READ_RECORD, RELEASE_RECORD 
TEXTRN RESET SYMBIONT STREAM 
-EXTRN RESUME SYMBIONT_TASK 
~-EXTRN REWRITE RECORD, START_SYMBIONT_TASK 
SEXTRN STOP_SYMBIONT_TASK 


-EXTRN UPDATE _GETQUI“DATA | 
-EXTRN ALL_PRIVILEGES, NLAO_DESC 
-EXTRN EXESEPID TO PCB | 
-EXTRN SCHSFORCEDERIT, SYSS$FAO 

-EXTRN SYSSCREPRC 


57 000000006 00 9€ 00002 MOVAB SYS$FAO, R7 ; 
56 00000000" EF 9€ 00009 MOVAB JBC_UIC. R6 : 
5E AO AE 9E 00010 MOVAB <-96TSP), SP ; 
3 10 AC dO 00014 MOVL  SJH, : 1226) 
5 08 AC 00 00018 MOVL MQ, R > 1205 | 
03 OC As €8 O00IC BLBS  12(R3), 1$ ; 
OOAD 31 90020 BRW 7$ : | 
6E OF DO 00023 18: MOVL #15, PRCNAM_DESC 3 1220 | 
04 AE 08 AE 9E 00026 MOVAB PRCNAM_BUFFER, PRCNAM_DESC+4 : 1221 
08 A2 DD 0002B PUSHL 8(R2) > 1226 | 
04 AE OF 000¢¢ PUSHAB PRCNAM_DESC : 
08 AE 9F 00031 PUSHAB PRCNAM~DESC : 
9C AF 9F 000 PUSHAB P.AAA : 
67 04 FB 00037 CALLS #4, SYSSFAO ; | 
18 AE 3F pO OO03A MOVL #63, IMAGE DESC > 1231 
1 AE 20 A 3 00 é MOVAB IMAGE BUFFER, IMAGE_DESC+4 > 1232 | 
0080 C2 95 0004 TSTB 76(R2) > 1239 
06 12 00047 BNEQ ; 
50 AB AF YE 00049 MOVAB P.AAE, RO ; 
05 11 90040 BRB : 
50 0080 £8 9E 0004F a8: MOVAB 176(R2), RO F | 
pd 0054 3$: PUSHL RO ; | 
1¢ «(AE OOF 0096 PUSHAB IMAGE_DESC : | 
20 AE 9F 00059 PUSHAB IMAGE ~DESC ; | 
90 AF 9F 0005¢ PUSHAB P.AAC : 
67 04 FB 0005F CALLS #4, SYSSFAO : 
55 10 00 00062 MOVL #16, STSFLG > 1244, 
03 OE A3 0 £0 006 BBS #5, °14(R3), 4$ t 1245 | 
55 04 88 O006A BISB2 #4. STSFLG ; | 


; Routine Size: 


Executor control 


000000006 
0094 


000000006 
10 
14 


000000006 


000000006 
000000006 


Routine 


54 


F 


50 


Base: 


0114 


eeeees 


4 
000000 76 
0168 


oorrw 


OOOOMO FP NP “MOVIN OQOOWOONS 
=I FAOWO FO FNVNVIANOO & MOOT Fw 


} 4 
16-Sep-1984 
14-Sep-1984 


F 


Frome oown 


AMM MMMMMMNMoOCO 


-oO = 


COOOCGCCCCOCOOCOCOCOOOCOCOOOOOCOVCOOOCOO OOOO OOOOOOOOOOOOOOOO 


ovo nnrso "OO CW OOO -9O NWO OCCT 9O -9 -9 -amM"O 
SolLowowWvoVTTWlWVIOvVod - Bo wsoor7090 — fwvn-eoan 


CODE + 0039 


12:97:01 


AX-11 Bliss-32 V4.0-74 
JOBCTL.SRCJEXECUTOR.B32;2 


PRCNAM_DESC, PRCNAM 
=(SP) 

STSFLG 

=(SP) 


2FEtRS), = (SP) 
PRCNAM 


6 
#13, SYSS$CREPRC 
STATUS, 
STATUS, #148 
10$ 
PRCNAM 
10$ 
PRCNAM 
5$ 
SJH_N 
SMaON 
$60TR2) 
#4, ENTER_PROCESS_DATA 
QUEUE_REFERENCE_COUNT 
#8, 18(R2) 
CUR_TIME, 20(R3) 
236TR2), SQR_N 
244(R2), SQR_N 
#1, READ_RECORD 
#°M<R2,R4> 
SJH_N 


SMQ_N 
#6, START_SYMBIONT_TASK 


RO 


Sete Se Se Se Ge Ge Se Se Se Se Se Se Se Be Be Se Be Se Be Be Se Se Se Se Se Se Fe Se Se Fe Fe Be Se Fe Ge Ge Se Ge Fe Fe Ge Ge Be Se Be Se Se 


2 eee Eee 


SJH_NP, ! Record number of predecessor of SJH 
: REF BBLOCK; ! Pointer to predecessor of SJH 


4 
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viva te 1e-sep-19 4 90:93:38 JOBCTL. SRC EXECUTOR .B3 32 . (4) 

; $ ! 8 ! GLOBAL ROUTINE START _EXECUTOR_JOB(SMQ_N,SMQ,SJH_N,SJH): NOVALUE= ; 
; Bs 1320 1 !¢4 : 
3 15821 1! 3 
; 85 1 ¢ 1 ! FUNCTIONAL DESCRIPTION: $ 
: iy } ? ! } This routine starts a job on an executor. : 
: 288 1325 1 | INPUT PARAMETERS: ; 
; 289 1 § 1; SMQ_N - Record number of SMQ. : 
; 290 1 1! SmQ - Pointer to ° : 
; 291 1 8 1! SJH_N - Record number of SJH. ; 
: ; ! ? ! } SJH - Pointer to SJH. | : 
: 294 1331. 1! IMPLICIT INPUTS: | : 
tio : 
: 297 1334 1 | OUTPUT PARAMETERS: | : 
3 os : 5 : NONE | : 
: 300 1 2 1} IMPLICIT OUTPUTS: : 
Pe Ceci fe | 
; 08 1340 1 | ROUTINE VALUE: : 
Pi eee te Tepe 
: 306 1308 1! SIDE EFFECTS: | : 
s 307 1344 1! NONE 3 
; 308 1345 1! 3 
mie i> eae 
at 1303 § Ras! bee! 
i 38 1350 SMO : REF BBLOCK, ! Pointer to SMQ | ; 
: 1 132) ene : REF BBLOCK; ! Pointer to SJH : 
: 16 1388 STATUS; ' Status return : 
. fae! 
; 319 1328 If this is a remote queue, enter a remote request. : 
; e 1328 iF SYSID_NEQ(THIS_SYSID, SMQCSMQ$T_SYSIDJ) : 
: ¢3 1360 evsestAUS = CREATE_SRQ_RECORD(SRQSK_START_JOB, .SMQ_N, .SMQ, .SJH_N, .SJH) ; 
; 358 1362 STATUS = START_EXECUTION(.SMQ_N, .SMQ, .SJH_N, .SJH); : 
- et: : 
; 28 65 1 STATUS OR .STATUS EQL 0 : 
: $9 1 BEGIN ; 
3 31 1 LOCAL 3 
: % 1 : 
3; 33 1 : 
; $¢ 1 3 
$ 5 1 : 
3 36 1 ; 
: 37 1 3 


WWAAWN A AWAWW Ww 


ANNNNOO 


PUNO we 


WNW 


Enqueuve the job to the current queue. 


5 4 g 
EXECUT Executor control 16-Sep-1984 00:03:38 AX-11 Bliss-32 v4.0-74 Page 16 E) 
vives tt 132808= 1382 99:93:55 JOBCTLSRCTEXECUTOR.B32;2 - “a v 
; 33 1375 IF .SMOCSMQSL_CURRENT_LIST] EQL 0 : 
; 9 1 6 THEN s 
2 0 137 SMOCSMQS$L_CURRENT_LIST] = .SJH_N : 
; 341 1378 ELSE : 
; 34 1379 GIN 3 
: 3% 1380 4 SJH_P_= READ RECORD(S JH NP = ,SMQCSMQSL_CURRENT_LIST_ENDJ); ; 
3 344 1381 4 SJH-PCSYM$SL_CINK] = .SJA_N; ‘ 
: 45 : 4 REWR1TE_RECORD(. SJH_NP) ; : 
: 347 1384 SMQCSMO$L_CURRENT_LIST_END] = .SJH_N; . 
; 348 1385 SMOCSMQ$B_CURRENT_JOB_COUNT] = .SMOCSMQ$B_CURRENT_JOB_COUNT) + 1; | : 
3 9 1 $6 SJHLSYMSL_LINK] = 0; 3 
i 350 1387 FLAGSCFLAGS_V_INVALID_SJH] = FALSE; | : 
; ¢ 1389 ELSE : 
; 1390 BEGIN | : 
3; 354 1391 | ; 
3 5 1 8 ! Fail the job. : 
3 6 139 ! 
; 357 1394 SJHCSJHSL_CONDITION_1] = .STATUS; 
3 8 1395 COMPLETE JOB(.SJH_N, .SJH, .SMQ, 0); 
; 359 1396 FLAGSCFLAGS_V_INVALID.SJH3 = TRUE; 
; 360 1397 2 END; 
; 361 1398 1 END; | 
| 
007¢ 00000 -ENTRY START_EXECUTOR_JOB, Save R2.R3,R4,R5,R6 ; 1318) 
56 00000000" EF 9E 0000 MOVAB FLAGS; R6 ; 
54 10 AC 00 0000 MOVL SJH, R4 : 1360 
55 OC AC DO 00000 MOVL SJH_N, RS : 
52 08 AC D0 00011 MOVL ; 1358 
0106 «C2 08 A6 D1 00015 CMPL THIS_SYSID, 262(R2) ; 
08 12 00018 BNEQ ; 
010A C2 0c A6 Bl 90010 CMPW THIS_SYSID+4, 266(R2) : 
12 13 000 BEQL © 2$ : 
54 DD 00025 1$ PUSHL R4 > 1360 | 
24 8B 00027 PUSHR  #°M<R2,R5> : | 
04 AC DD 00029 PUSHL  SMQ_N ; 
01 OD 0002C PUSHL #1 ; 
000000006 EF 05 FB 000 é CALLS #5, CREATE_SRQ_RECORD ; | 
g¢ 11 99 BRB 3$ ; | 
4 0d 00037 2$ PUSHL R4 > 1362, 
24 BB 00039 PUSHR #*M<R2,R5> : 
04 AC DD 00038 PUSHL SMQ_N : 
FEAA CF 4 F 00056 CALLS #4, START_EXECUTION ; 
04 0 € 004 3$: BLBS STATUS, 48 : 1365 | 
D5 00 46 TSTL TATUS ; 
1 004 BNEQ $ ; 
48 =A p 9 aA 4$ ist 72(R2) > 1375 | 
48 A2 98 06 O9ct MOVL 5, 72(R2) : 1377 | 
19 11 00053 BRB ; | 
53 4C Ae dO 00055 5$ MOVL § 76(R2), SJH_NP : 1380. 
53 DD 00059 PUSHL SJH_NP ; 


4 
EXECUT Executor control Ib-s¢ -1984 00:03: AX-11 Bliss-32 V4.0-74 
FOns002. 1 =300n 138% 90:95:39 JOBCTL.SRC ERECTOR .039;2 
00000000G_ EF 1 Fe FA CALLS #1, READ_RECORD 
ne 3 b> oo0e post, SJ4.NPPm 
000000006 EF Q] FB 3 CALLS #). REWRITE RECORD 
6C A2 5 p O6¢ 6 MOVL RS gr ) 
viking a Bo ae 
66 $3 Bh 78 B1CB2 #32, FLAGS 
OODC C4 30 DO 7C 7$ MOVL STATUS, 220(R4) 
5 Bh fifa” 
DD PUSHL R 
5 DD 99 7 PUSHL R5 
00000000G_ EF 4 FB 0 089 CALLS #4, COMPLETE_JOB 
66 0 8 9090 BISB2 #32, FLAGS 
04 0009 RET 


; Routine Size: 148 bytes, Routine Base: CODE + 014C 


Be Se Se Se Ge Be Fe Ge Se Se Se Fe Se Fe Fe Fe Se 


Saatwowtioatotad aod 
WIAA 
Mew w NR 


<m 


~~ 
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3 1399 1 ROUTINE DELETE_PROCESS_KERNEL(CTX)= 3 
; $3 1400 1 | 3 
; 365 1401 1 !4¢ $ 
3 08 14 § 1 i 3 
; 138 1 | FUNCTIONAL DESCRIPTION: 3 
3 68 1404 1} This routine causes a process to exit with a specified exit status ; 
§ 9 1405 1: by using SCHSFORCEDEXIT to exit each access mode in turn. This routine ; 
3 £9 1388 : executes in kernel mode and partially at IPL$_SYNCH. : 
s Sc 1408 1 i INPUT PARAMETERS: 3 
: 7 i409 1! CT™ - Context block. ; 
: 374 1410 1: 3 
: 375 1411 1: PLIES INPUTS: : 
: 376 1236 1/ ONE F 
: AG 1413 1! | : 
: 378 1414 1 ' OUTPUT PARAMETERS: : 
3 44 1415 1! NONE 3 
; 380 1416 1: ; 
; 381 1417 1! IMPLICIT OUTPUTS: 3 
3 $a6 1418 1! NONE 3 
; 38 1419 1! 3 
: 384 1e59 1 ' ROUTINE VALUE: ; 
; 385 1421 1! Completion status. | ; 
; 386 14 ¢ 13 $ 
s 387 14 1 | SIDE EFFECTS: 3 
; 388 1424 1! AST queued to process. ; 
; 389 1425 1! 3 
; 390 1426 1 i+ | : 
; 391 1427 1 3 
3 $08 1428 BEGIN 3 
; Ww Me 9 MAP : 
: 394 1430 CTX REF VECTOR; ! Pointer to context block 3 
; i 1431 REGISTER | : 
; 396 1636 EPID, ' EPID of process to delete 3 
; 397 143 PCB: REF BBLOCK, ' Pointer to PCB : 
; 398 1434 2 STATUS; ! Exit status ; 
: 399 1435 STACELOCE, 3 
: 600 1436 E; ' Access mode : 
: 401 1437 3 
; 40 1438 § 3 
; 40 1439 ' Load parameters into registers or onto the kernel stack to avoid page fault : 
3 404 1440 2 ! at elevated IPL . 
: tb ee sa it 0 
; 607 1208 MODE = .C rath }; : 
: 408 1444 2 STATUS = Cixtd): | 3 
; 409 1445 3 
; 410 1446 3 
3 411 1447 ' Raise IPL to SYNCH. 3 
: sig 1448 i 3 
3; (4! 1449 MTPR(LOCK IPL, PRS_IPL); 3 
3; 414 1450 : 
> 415 1451 3 
> 416 1626 ! Do the real work. | : 
: 617 145 i $ 
; 418 1454 PCB = EXESEPID_TO_PCB(.EPID); ; 
; 419 1455 IF F 
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BEGIN 

IF .PCB NEQ 0 ! Valid PID 
-PCBCPCBSV_BATCH) ! Ensure a batch process 
FALSE 


THEN 
BEGIN 


} Force the specified access mode to exit with the specified status. 
SCHSFORCEDEXIT(MODE, .STATUS, .PCB); 


Lower IPL. 
MTPR(ZREF (0), PRS_IPL); 


, ek ek ek ek ek et keh lee ek et et ek eke 


! If we delivered to kernel mode, clean up. Otherwise set a kernel 
!' mode timer to reenter this routine in two minutes for the next 
} higher access mode. 


if .MODE NEQ PSLS$C_KERNEL 
THEN 


Ltt tet PRP PRN RPE AN Ae HS Oe A SY 
WO CGONAULS WN “OOO NAOUE WI OOOno 


BEGIN 
CTXC1) = .MODE - 1; 
SSETIMR( 

DAYTIM=UPLIT(-1200000000, -1), ! 2 minute delta time 

ASTADR=DELETE_PROCESS_KERNEL, 

REQIDT=.CTX); 


Be Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Fe Ge Se Se Ge Ge Ge Se Se HSH Se Se Se Se Se Ge Geese Ge Se Se Se Se Sees tees tee 
> 
o 
vvv 
a ee ee ee ee ee ee SS SS 


PAGES BEEBE EEE EEE EPP PEPPER PPP PPP PPP PPP PLL EEE 


Ss 
DEALLOCATE_MEMORY(.CTX); 


SS$_NORMAL 
END 


ELSE 
BEGIN 


Lower IPL. 
MTPR(ZREF(O), PRS_IPL); 
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; Clean up and return. 


DEALLOCATE_MEMORY(.CTX); 
Ss$ NONE XPR 


—NIWIWNINA ANNAN AWA BBE BBE PW 
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ooooo 


FFFFFFFF 68797400 OO1EO P.AAF: .LONG -1200000000, -1 : 


B 5: 
vou-002" secretes 1ecSep-1986 2:57:01 Eloactuesne Sexe cUTOR-039;2 


~-EXTRN SYSSSETIMR 


007C 00000 DELETE_PROCESS_KERNEL: 
WORD ~ Save R2,R3,R4,R5,R6 


: 000000006 EF 9 9002 HOVAB BEALL OEATE- MEAORY. R6 
04 Ag DO 00 MOVL (CTX, R 
0 65 DO 00000 MOVL (R5$, EPID 
04 ad DD 901 PUSHL  4(R5S 
52 08 A5 D0 0001 MOVL 8(R5), STATUS 
1 0000v CF DA 0001 MTPR LOCK IPL, #1 
000000006 : 1 001 JSB EXESEPID. TO_PCB 
51 D MOVL RO, PCB 
C 13 000 BEQL 46s 3$ 
37 25 Al 6 fi 00 BBC #6, 37(PCB), 3$ 
50 E . 002C MOVAB MODE, R 
54 1 00 0002F MOVL PCB, R4 
53 : DO 000 ‘ MOVL STATUS, R3 
000000006 00 16 0003 JSB SCHSFORCEDEXIT 
12 00 DA 00038 MTPR #0, #18 
6 DS 0003E TSTL MODE 
18 13 00040 BEQL = _1$ 
04 AS 6E 01 ¢ 00042 SUBL3 #1, MODE, 4(R5) 
55 DD 0004 PUSHL R 
B4 AF 9F 00049 PUSHAB DELETE_PROCESS_KERNEL 
AS AF 9F Q004C PUSHAB P.AAF 
7E D4 OO04F CLRL = (SP) 
000000006 00 04 FB 00051 CALLS #4, SYSSSETIMR 
05 11 00058 BRB 2$ 
55 DD 0005A 1$: PUSHL 5 
66 01 FB 0005C¢ CALLS #1, DEALLOCATE_MEMORY 
50 01 DO 0005F 2s: MOVL #1. RO 
04 00060 RET 
12 00 DA 00063 3S: MTPR #0, #18 
55 DD 00066 PUSHL 
b6 01 FB 00068 CALLS DEALLOCATE _MEMORY 
50 O8E8 8F 3C 00068 MOVZWL 42580 
04 00070 RET 


; Routine Size: 113 bytes, Routine Base: CODE + O1E8 


OWN 
LOCK_IPL: PSECT(CODE) INITIALCIPL$S_SYNCH) ; 


it 5 5 2 5 


TIF Lore IPL + 4 = DELETE_PROCESS_KERNEL GTR 512 
ZTHEN ZERROR( Possible page fault at elevated IPL") %FI 
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PVPV PV LVL DUPE LV IVD LVIVSIVIV SUSU SUSU SVS SSIS 
im S8SSR32 
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NNAOO 
—Ooeo~ 


} GLOBAL ROUTINE ABORT _EXECUTION(SMQ_N,SMQ,SJH_N,SJH)= 
1 tee 
1! 
1 ! FUNCTIONAL DESCRIPTION: 
1! This routine performs the actual communication that aborts a job on an 
: executor. 
1 | INPUT PARAMETERS: 
as SMQ_N - Record number of SMQ. 
7 f SMQ - Pointer to SMQ. 
1? SJH_N - Record number of SJH. 
: SJH - Pointer to SJH. 
1 ' IMPLICIT INPUTS: 
: NONE 
1 | OUTPUT PARAMETERS: 
: } NONE 
1 ' IMPLICIT OUTPUTS: 
: NONE 
1 ' ROUTINE VALUE: 
: Completion status. 
1 | SIDE EFFECTS: 
1! NONE 
1! 
1 !-- 
1 
; BEGIN 
MAP 
SMQ: REF BBLOCK, ' Pointer to SMQ 
2 SJH: REF BBLOCK; ! Pointer to SJH 
2 LOCAL 
2 STATUS; ' Status return 
IF .SMOQCSMQ$V_BATCH) 
THEN 
BEGIN 
LOCAL 
CTX: REF VECTOR, ' Pointer to context area 
ARGLST: VECTORC2); ! $CMKRNL argument List 
CTX = ower: MEMORY(); 
CTXCO) = .SJHCSJHSL_EXECUTOR_PID); 
CTxC1J = PSLS$C_USER; 
CTx£2) = JBC$_JOBABORT OR STSSK ERROR: 
IF » Bath SoNOy REGUEUES THEN CTXE2] = JBC$_JOBREQUEVE OR STS$K_ERROR; 
are ett i = 1; 
ARGLSTL1) = .CTX; 
STATUS = SCMKRNL (ROUTIN=DELETE PROCESS_KERNEL, ARGLST=ARGLST); 
| .STATUS THEN RETURN .STATUS; 


seer age 0:05:58 
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TO s00e. 14- ~300n 38 90:93:38 JOBCTL.SRCJEXECUTOR.B32;2 . 3 
; 3 157 ELSE : 
; 74 : ie STOP_SYMBIONT_TASK(.SMQ_N, .SMQ, .SJH_N, .SJH); : 
: t3 1 RR ' Update SJH. 
Py pdate ; 
; 28 157 i : 
: 544 157 SJHCSJH$V_ABORTED] = TRUE; ‘ 
; 545 157 SS$_NORMAC 3 
; 546 1580 END? ; 
00259 BLKB 3 ; 
00000008 0025C LOCK_IPL: ; 
EXTRN SYSSCMKRNL : 
0004 00000 .ENTRY ABORT_EXECUTION, Save R2 : 1515) : 
SE 08 C2 90002 SUBL2 #8, SP ; : 
52 10 AC 00 0000 MOVL SJH, R2 > 1563) : 
50 08 aC 00 00009 MOVL SMQ, + 1554) : 
3¢ 0¢ ad €9 0000D BLBC 2 Oto 2$ : | ; 
000000006 EF 00 FB 00011 CALLS #0 ALLOCATE MEMORY : 1562, : 
60 0168 ce DO 00018 MOVL  360(R2), (CTR) : 1563. : 
04 Ad 03 DO 0001D MOVL 8 Reetx ) > 1564 | ; 
08 AO 00048082 8F 00 00021 MOVL #295042, 8(CTX) : 1565. ; 
0 A2 €9 00029 BLBC : 1566. : 
08 AO 000480E2 8F DO 900¢0 MOVL #295136, 8(CTX) : ; 
BE 01 DO 00035 1$ MOVL #1, ARGLST : 1567) : 
06 AE 50 00 00038 MOVL CTX, ARGLST+4 : 1568 | : 
SE DD 900 ¢ PUSHL SP : 1569 | : 
FF46 «CRO 0035 PUSHAB DELETE_PROCESS_KERNEL ; | : 
000000006 00 02 FBO O42 CALLS #2, SYSSCMKRNL : : 
12 50 €E8 0004 BLBS STATUS, 3$ ; 1570, : 
04 0004C RET 3 3 
52 DD 90040 28: PUSHL R2 ; 1573) : 
OC AC DD 0004F PUSHL SJH_N ; : 
50 oD Boas PUSHL ay 3 ; 
04 AC DD 00054 PUSHL SMQ ; | : 
04 Fe 00057 CALLS a, “Stop SYMBIONT_TASK 3 : 
01 88 OO0S5E 3$ BISB2 16(R2) : 1578. : 
01 DO 9006 : * Rb : 1580. : 
04 0006 : : 


eect | EF 
10 A2 : 
50 MOVL 
RET 
; Routine Size: 102 bytes, Routine Base: 


a1 


CODE + 0260 


oe 
voe-002" oneieps germ 1erSep-t9be tois7:01 — WadactL sme exe cuTOR=659;2 Page f) 


ROUTINE VALUE: 
Completion status. 


| 
| 
IMPLICIT OUTPUTS: 
NONE 
SIDE EFFECTS: 

NONE 


rs 13 1 GLOBAL ROUTINE ABORT_EXECUTOR_JOB(SMQ_N,SMQ,SJH_N,SJH)= ; 
; g lee ; 
4 ' 5 

é 5 ! FUNCTIONAL DESCRIPTION: 3 

2 This routine aborts a job on an executor. : 
é 8 i INPUT PARAMETERS: | ; 
5 : SMQ_N - Record number of SMQ. : 
2 ! Sma - Pointer to SMQ. : 
1 : SJH_N - Record number of SJH. $ 

Z ¢ SJH ~ Pointer to SJH. | : 
6 4 1! IMPLICIT INPUTS: | ; 
: 5 NONE : 
6 5 i QUTPUT PARAMETERS: ; 
6 8 : NONE 3 
8 ji 

i 

i : 

i . 

i : 

i : 

i : 

i : 

i : 


DDO O00 00 00 00 60 00 00 00 8 SI NIN NN IO OO 
Lee SSR SS RES SN RU oe en ne o> ote ee een ee 


BEGIN 
MAP ; 
SMQ: REF BBLOCK, ' Pointer to SMQ 
: REF BBLOCK; ! Pointer to SJH 
LOCAL 
STATUS; * Status return 


PAAAAAAAAAAA AAAS AAA AMM 
NAME WN $0 OONOUE WN" OOONOUE Wh 


4 ig is a remote queue, enter a remote request. Otherwise, issue the 
' abort. 
' 


iF SYSID_NEQ(THIS_SYSID, SMQCSMQ$T_SYSIDJ) 
: CREATE_SRQ_RECORD(SRQSK_ABORT_JOB, .SMQ_N, .SMQ, .SJH_N, .SJH) 
aa ABORT_EXECUTION(.SMQ_N, .SMQ, .SJH_N, .SJH) 


BR 


RIPPON IEUPIPIPIPIPINOPINIIIAY a at st st st st et st st tt tt tt tt tt tt 
mm 


mk ak a a a a 8 et et 2 ss a tt SS 


iw Lees alah ab al ah sb Ab ab Ab db Abb dh ob Ab Ab Ah hh db ah ah Ab dh sh dh dh ab eh sh dl 


rorerororor 


AAAAAON 


0000 00000 .ENTRY ABORT EXECUTOR_JOB, Save nothing : 1581. 

50 08 AC DO 0000 MOVL SMQ, R > 1622. 

0106 C0 00000000' ai v1 09 THIS_SYSID, 2624R0) : | 
B ; OOF BNEO : 
010A CO 00000000' EF 81 00011 THIS_SYSID+4, 266(RO) : 


5 
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Enecurgr Executor control 


— as 


13 3 1A BEQ 2$ : 
7E oC at d 1$ MOV SJHLN, -(SP) + 16246 
50 DD PUSHL R : 
06 AC OD PUSHL SMQ_N ; 
0 DD PUSHL a : 
000000006 EF FB f CALLS #5, CREATE_SRO_RECORD : 
7E 0c ac % OOoF 2% MOva SJH_N, =(SP) + 1626. 
50 DD 00 3 PUSHL RO : 
04 AC DD 000 PUSHL SMQ_N ; 
FFSD OCF 04 FB 00038 CALLS #4, ~ABORT_EXECUTION ; 
04 00030 RET ; 1627, 


; Routine Size: 62 bytes, Routine Base: CODE + 02C6 


Bo Be Oe Oe Be Be Se Se Be Oe Se Se Se Se Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Fe Se Se ae 


H | 
EXECUT Executor control 16-Sep-1984 00:03:38 AX-11 Bliss-32 V4.0-74 Pp 6 
vou-002" engeb= 198s 99:97:07 Lact ’SeSexecuton.039;2 ase 5) 


3 16 1 GLOBAL ROUTINE PAUSE_EXECUTION(SMQ_N,SMQ)= : 
3 3 16 § 1 ~ 4 : 
3 38 1650 1 !+¢ ; 
3 1631 1! : 
; ¢ 16 4 1 ! FUNCTIONAL DESCRIPTION: ; : 
; 601 16 1! This routine performs the actual communication that pauses a job on an ° 
; o0¢ 16 1! executor. : 
; 60 1635 1! ; 
; 604 16 § 1 ! INPUT PARAMETERS: ; 
; 605 16 1! SMQ_N - Record number of SMQ. ; 
; one 1638 1! SmQ - Pointer to SMQ. : 
; 60 1639 1! : 
; 608 1640 1 ! IMPLICIT INPUTS: PF 
; 609 1641 1! NONE : 
; 610 1o%6 1! $ 
; 611 1645 1 ! OUTPUT PARAMETERS: : 
; olg 1644 1! NONE : 
; 61 1645 1! F 
; 614 1646 1 ! IMPLICIT OUTPUTS: : 
; 615 1647 1! NONE ; 
; 616 1648 1! | $ 
; 617 1649 1 ! ROUTINE VALUE: | ; 
; 618 1650 1! Completion status. . 
; 619 1651 1! : 
; 620 1036 1 ! SIDE EFFECTS: | 3 
: 621 1653 1! NONE 3 
3; 6 g 1654 1! F 
; 6 1655 1 !-- : 
3 ose 1906 1 3 
; 625 165 BEGIN F 
; 626 1658 MAP : 
: 627 1659 MQ REF BBLOCK; ' Pointer to SMQ 3 
: 628 1660 LOCAL : 
; 629 1661 SJH_N ' Record number of SJH : 
; 630 1996 SJHINS, ' Record number of successor of SJH é 
: 631 166 SUH: REF BBLOCK, / Pointer to SJH | ; 
; O36 1664 2 FINAL_STATUS, ' Final status return : 
: 63 1665 STATUS; ' Status return 3 
: 634 1666 : 
; 635 1667 3 
; 636 1668 FINAL_STATUS = SS$_NORMAL; : 
; 637 1669 3 
; 638 1670 3 
: 639 1671 IF .SMQCSMQ$V_BATCH) $ 
3; 640 1076 THEN 3 
3; 641 167 BEGIN 3 
: O46 1674 ie : 
: ot7 192? Issue a suspend for all currently executing jobs. : 
: 645 1899 SJH_N = .SMOCSMQSL_CURRENT_LISTI; : 
: G66 1678 WHITE .SJH_N NEQ 0°00 3 
; 64 1679 4 BE 3 
: 648 1680 4 SJH = READ_RECORD(.SJH_N); 3 
: 649 1681 4 STATUS = SSUSPND(PIDADR=SJHCSJHSL_EXECUTOR PID)); 3 
; 650 1086 4 IF NOT .STATUS AND .FINAL_STATUS THEN FINAC_STATUS = .STATUS; : 
3; «6651 168 4 SJH_NS = .SJHCSYMS$L_LINKI; : 
; 652 1684 4 RELEASE _RECORD(.SJH_N); 3 


nm 
Paw 
mn 
o 


fe 
Rg 
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; 653 1685 4 SJH_N = .SJH_NS; 

; 654 16 $ ND; 

; 655 16 SMOCSMO$V_PAUSED] = TRUE; 

3; 6 $ 16 . END 

; 6 16 ELSE 

; 658 1690 PAUSE _SYMBIONT_TASK(.SMQ_N, .SMQ); 
; 659 1691 

; 660 1698 

3 661 169 .FINAL_STATUS 

; 662 1694 1 END; 


-EXTRN SYSS$SUSPND 


| 
0OFC 00000 .ENTRY PAUSE_EXECUTION, Save R2,R3,R4,R5,R6,R7 : 1628) 
56 01 00 b000¢ MOVL #1, FINAL_STATUS : 1668 | 
52 08 AC 00 0000 MOVL  $MQ, R2 : 1671 | 
42 0C A2 €9 00009 BLBC 12(R2) 4$ : 
54 48 OA 9 00000 MOVL 72(R2), SJH_N + 1677) 
36 13 00011 1$ BEQL 3$§ : 1678) 
54 0D 00013 PUSHL SJH_N 3 1680 
000000006 Ef gi FB 00015 CALLS #1, READ_RECORD : 
z 0 pO 0001C MOVL RO, SJH ; 
7e D4 0001F CLRL 0s = ¢§P) + 1681. 
0168 C3 OF 90021 PUSHAB 360(SJH) ; 
000000006 00 02 FB 00025 CALLS #2, SYSS$SUSPND : | 
55 50 00 0002¢ MOVL RO, STATUS ; 
06 55 £8 000eF BLBS TA 2$ + 1682. 
03 56 £9 00032 BLBC —FINAL_STATUS, : 
56 55 (+00 00055 MOVL STATUS, FINAL_STATUS ; | 
57 63 D0 00038 28 MOVL (SJH), SJH_ : 1683) 
54 DD 0038 PUSHL SJH_N + 1684) 
000000006 gf 9 4 0030 CALLS #1, RELEASE_RECORD 3 
4 7 DO 00044 MOVL § SJH_NS, SJHTN > 1685 
C8 11 00047 BRB 1$ : 1678 
10 A2 04 88 00049 3$ BISB2 #4, 16(R2) + 1687 
O¢ 11 00040 BRB 5$ + 1671 
2 DD OO04F 4$ PUSHL  R2 + 1690 
04 AC DD 00051 PUSHL SMQ_N : 
000000006 EF 02 FB 00054 CALLS #2, PAUSE_SYMBIONT_TASK ; 
0 56 pO 00098 5$ HOVL FINAL_STATUS, RO : 1694 | 


; Routine Size: 95 bytes, Routine Base: CODE + 0304 
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GLOBAL ROUTINE RESUME EXECUTION(SHO_N, SMO,FLAGS ALIGNMENT PAGES RELATIVE, PAGE SEARCH, LENGTH, SEARCH_ADDRESS)= 


ee 
i | 
heels 0 DESCRIPTION: 

This A sages performs the actual communication that resumes a job on an 
executor. 


INPUT PARAMETERS: 
SMQ_N 


3 


ee 
a 
Sg 


323 
33 


PAWN NIWNIGPOPOPONONOPONONPONPONONININDD 2 2 9 9 9 es 
on ome smcocaces 
oO 
oO 
> 
— 


Ss 


WN "SO OONOUS WOO 


Record number of SMQ. 
Pointer to SMQ. 

Resume control f ags . 

Number of Sl Vennee pages (or 0). 
Relative page e offset (or 0). 
Descriptor for search string (or 0). 


PAPOAAOAO 
SANs 

mn a 

= 

m 

z 

= 

wv 

Psa 

a 

m 

n“ 
teenreoeene 


S 

SEARCH_ADDRESS 

i IMPLICIT INPUTS: 
NONE 


So So 0 


i OUTPUT PARAMETERS: 

i NONE 

i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE: 


Completion status. 
i SIDE EFFECTS: 
i NONE 


SOOONO VSN (OO OONOA UE WN S(O OOWVOAUE WN 


SMQ: REF BBLOCK; 


Pointer to SMQ 


Record number of SJH 

Record number of successor of SJH 
Pointer to SJH 

Final status return 

Status return 


REF BBLOCK, 


FINAL STATUS, 
STATUS; 


709 FINAL_STATUS = SS$_NORMAL; 


BBB FAWN PDIPININININID 2 OO OO SM DOOOOOOOCOO 


IF .SMOCSMOQ$V_BATCH] 

THEN 

BEGIN 

' Issue a resume for all currently executing jobs. 


én N = .SMOCSMQ$L_CURRENT_LIST); 
WHITE. -SJH_ N NEQ 0°00 


; 1 
@ 1 
» 1 
; 1 
oe 1 
os 1 
; 1 
oO 1 
; 1 
; 1 
: 1 
6 1 
; 1 
eo 1 
9 1 
; 1 
. 1 
3 1 
oO 1 
g 1 
; 1 
2 1 
; 1 
eo 1 
3 1 
. 1 
3 1 
3 1 
; 69 1 
: 6 1 
3 1 
. 1 
eo 1 
> 1 
3 1 
3 1 
3 1 
3 1 
: 1 
; 1 
- 1 
; 1 
3 1 
3 1 
; 1 
3 1 
3 1 
; 1 
3 1 
: 1 
3 1 
; 1 
3 1 
: 1 
3 1 
; 1 
3 1 


SG NSO OOOO 


—OOONOUEWN OC OONOUE WN 


SSN 
1) me a es es 
SCOONOUEWN—O 
iw TWAT oe ot ot at et 
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€ Executor control 16-Sep-1984 00:03: AX-11 Bliss-32 V4.0-74 Page 29. 
iV 137808- 1382 90:95:39 JOBCTL.SRCJEXECUTOR.B32;2 . 183 | 

: 17 ; 4 SJH = READ_RECORD(.SJH_N); 

: 17 4 STATUS = SRESUME(PIDADR=SJHCSJHSL_EXECUTOR_PID)); 

: 1754 4 IF NOT = STATUS AND FINAL STATUS THEN FINAC_STATUS = .STATUS; 

3 1755 4 SJH_NS = .SJHCSYMSL_LINKI; 

: 17 $ 4 RELEASE_RECORD(.SJH_N); 

3 17 & SJH_N = .SJH_NS; 

; 17 g END; 

: 175 SMOCSMQ$V_PAUSED] = FALSE; 

: 1760 

: 1761 SE 

: 176¢ RESUME _SYMBIONT_TASK( 

: 176 . N, .SM 

: 1764 “FLAGS, .ALIGNMENT PAGES, .RELATIVE_PAGE, 

: 1763 «SEARCH_LENGTH, .SEARCH_ADDRESS); 

; 1767 

: 1768 .F INAL_STATUS 

: 1769 1 END; 


-EXTRN SYSSRESUME 


| 
| 
| 
| 
| 
| 
OOFC 00000 .ENTRY RESUME_EXECUTION, Save R2,R3,R4,R5,R6,R7 ; 1695 
56 01 pO 00002 MOVL #1, FIRAL_STATUS + 1740 
5g 08 AC dO 00005 MOVL MQ, R > 1743 
4 OC A2 €E9 00009 BLBC 12(R2), 4$ : 
54 48 A2 09 00000 MOVL  72(R2), SJH_N + 1749 
36 13 00011 1$: BEQL 3$ + 1750 
54 DD 00013 PUSHL  SJH_N : 1752 
000000006 EF 01 FB 9001 CALLS #1, READ_RECORD : 
53 50 00 900 C MOVL RO, SJH ; 
7 D4 O001F CLRL =—_ = ( §P) : 1753 
0168 C3 9F 00021 PUSHAB 360(SJH) ; 
000000006 00 02 FB 00025 CALLS #2, SYSSRESUME ; 
55 50 0 0002C MOVL RO. STATUS F 
06 55 £8 00 F BLBS STATUS, 2$ + 1754 
03 56 €9 000 : BLBC FINAL STATUS, 2$ : 
56 55 D0 b003 MOVL STATUS, FINAL_STATUS 3 
57 63 00 00038 2$: MOVL (SJH), SJH_NS : 1755 
. 54 DD 00038 PUSHL  SJH_N : 1756 | 
600000006 EF 01 FB 00030 CALLS #1, RELEASE_RECORD : 
54 57 DO 00044 MOVL  SJH_NS, SJH™N : 1757 
c8 11 00047 BRB 3 : 1750 
10 A2 4 8A 00049 3$: BICB2 #4, 16(R2) : 1759 
17 11 00040 BRB 5$ + 1743 
7E 18 AC 7D OOO4F 4$: MOVQ  SEARCH_LENGTH, -(SP) > 1765 
7E 10 AC 7D 00053 MOVQ § ALIGNMENT_PAGES, -(SP) : 1764 | 
0C AC DD 00057 PUSHL FLAGS : 
52 DD O005A PUSHL ; 1763 | 
04 AC DD 0005¢ PUSHL  SMQ_N : 
000000006 Ef 9 FB 005F CALLS #7, RESUME_SYMBIONT_TASK : 
0 6 6 ae: 5$: BOvL FINAL_STATOS, RO > 1769. 


; Routine Size: 106 bytes, Routine Base: CODE + 0363 
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Executor control 16-Sep-1984 99: 93:38 AX-11 Bliss-32 Vv4.0-7 

v04-002 14-Sep P= 1986 JOBCTL.SRC EXECUTOR. bg 32 
N 


g re 1720 } GLOBAL ROUTINE RESET_EXECUTOR_QUEUVE(SMQ_N,SMQ): NOVALUE= 
s 76 \it¢ 1 tee 

: 7 1773 1/3 

: 744 1774 1: FUNCTIONAL DESCRIPTION: 

: ot? ae : This routine resets an executor queue. 
> re 1338 13 INPUT PARAMETERS: 

: 748 1778 1! SMQ_N - Record number of SMQ. 
; 749 177 1 i SMQ - Pointer to SMQ. 

; 750 1780 1! 

; ey 173) 1 i IMPLICIT INPUTS: 

a ; 17 ¢ 1 / ONE 

3; 1783 1! 

$ Pee 178 1 i OUTPUT PARAMETERS: 

: 755 1785 1: NONE 

3; 6 1786 1! 

: 757 1787 1°! IMPLICIT OUTPUTS: 

; 758 1788 1: NONE 

; 759 1789 1: 

: 760 1790 1 ! ROUTINE VALUE: 

; 761 1791 1 Completion status. 

; 76 16 13 

: 76 1793 1! SIDE rests: 

: 764 1794 1: ONE 

; 765 1795 1: 

; 766 1796 1 i- 

3; 767 1797 (1 

: 768 1798 2 BEGIN 

: 769 1799 § MAP , 
; 770 1800 SMQ: REF BBLOCK; ' Pointer to SMQ 
. a 1801 

3; 77 1206 - 3 
3 or? 17 If the queue has a symbiont, send the symbiont a reset. 
: 46) 1805 if .SMQCSMQSL_STREAM_SCT) NEQ 0 

: 777 1807 RESET_SYMBIONT_STREAM(.SMQ_N, .SMQ); 

; 778 1808 

: 779 1809 : 

3 70 1919 : Reinitialize the queue header as appropriate. 
: 78 1812 éna SMQSL_ status) 0; 

: 783 181 SMOCSMO$SV~STOPPED] = TRU 

ae 1814 CLEAR Ab TIME CsmOrenasa ACR CE EGTIMI): 

; 785 1815 SMOCSMQSL_ACM_ NT] = 0; 

: 786 1816 SMO SOSL-ACM”PAGECNT) = 6; 

; 787 \3 SMQ tte a. CNT) = 0; 

; 788 1818 SMOCSMOSL~ ACM “SYMCPUT IM] = 0; 

: 789 1819 SMQ SMOQSL_ STREAM_SCT) = 

: 790 1820 SMQCSMQ$B_CURRENT_JOB COUNT? = 0; 

: 791 1821 SMOCSMQ$B-STREAM_INDER 

; 79 1 § 

; 79 1 

3; 794 1824 !' Process all current jobs. 

; 795 3 5 ! 

; 796 1826 WHILE .SMQCSMOQ$L_CURRENT_LIST] NEQ 0 DO 


EXECUTOR Executor control 16-Sep-1984 AX-11 Bliss-32 V4.0 Page 32. 
SOE s002 1a-8ep- 138 99: $333 JOBCTL.SR aefexecliton 43; :2 . (11) | 
; 797 1827 BEGIN 

; 798 18 8 LOCAL 

; 799 1 SJH_N, ! Record number of SJH 

; 800 1830 SJH: REF BBLOCK; !' Pointer to SJH 

: 801 1831 

3 o0e 18 § 

3 Hit HF 7 Read and unlink the job header. 

; 805 1835 $J H = READ wT batat ec N= eo Pa _CURRENT_LISTI); 

; 806 18 $ UPDATE _GETQUI _D SJH_N, .SJH 

; 807 183 SMQCSMOSL TCURRENT. aLisTa = SJHESTMSL LINK); 

; 808 1338 

; 809 1839 

; 810 1840 ' If this is a batch job, delete the process, but clean up data structures 
3 gt) rh } and complete the jo immediately, as if the process had terminated. 
3 B13 18e$ IF .SMOCSMQ$V_BATCH] 

: 814 1844 THEN 

; 815 1845 4 BEGIN 

; 816 1846 4 LOCAL 

: 817 1847 4 CTX: REF VECTO R, ! Pointer to context area 

; 818 1848 4 ARGLST: VECTOREZ 3 ! $CMKRNL argument List 

; 819 1849 4 

; 820 1850 4 

: 821 1851 4 CTX = ALL esate MEMORY ( 

; B22 1858 4 CTXCO] = .SJH SJHSL RE XEEUTOR PID); 

; we 1853 4 CTXC1) = PSLS$ 

; B24 1854 4 CTxC2) = JBC$ “auERESET OR SiSSK_ERROR; 

: 825 1855 4 mererpes = 1; 

: B26 1856 4 ARGLSTL1) = .CTX 

; 827 1857 4 SCRKRNL (ROUTINGDELETE  PROCESS_KERNE ARGLST=ARGLST); 

: 828 1858 4 FIND_PROCESS_DATA(PDE-K K_BA TCH, .SJH § JHSL EXECUTOR_PIDJ, TRUE); 

; 829 1859 4 QUEVE_REFERENCE_COUNT = . QUEUE _REFERENCE COUNT - 15 

; 830 1860 ND; 

; «831 1861 

; 832 1306 

3; 833 186 : pe one SYSTEM FAILURE] = TRUE; 

; axe 186% ; COMPL LETE_JOB(.SJA_N, .SJH, .SMQ, 0, JBC$_QUERESET OR STSS$K_ERROR); 

; 836 1866 2 SM nacSmad CURRENT_LIST_END] = 0; 

; 837 1867 1 END 


0£1¢ 00000 .ENTRY RESET. EXECUTOR_QUEUE, Save R2.R3.R4,R9,R10,-; 1770 
5E 08 C 90002 SUBL2 #8, SP : 
52 08 AC 00 0000 MOVL snd R2 > 1805 
OOFC C2 05 00009 TSTL 52(R2) : 
O¢ 13 0000D EQL $ ; 
dd 900F PUSHL Re : 1807 
04 AC DD 00011 PUSHL ; 
000000006 EF 02 FB 00014 CALLS aReSET _SYMBIONT_STREAM : 
10 Ad 04 000%B 1$: CLAL tgin : 1812 
11. A2 02 88 OOOIE BISB2 # +¢R2) : 181 


cs 


; Routine Size: 


Executor control 


000000006 


000000006 
48 

000000006 
04 
08 
04 

000000006 


000000006 
11 


000000006 


196 bytes, Routine 


14 a2 7C 8 
1¢ OA ge 
24C~«<CA C 8 
OF ¢ 4 B 
11 C 4 Q00¢2F 
UR Bee 
gt ae 
0081 88 C 
54 48 A2 00 F 
, AaB 
55 3 D0 ; 4C 
53 DD QO04F 
54 DD 00051 
EF 0 FB 00053 
A2 63 DO QO05A 
41 OC A2 €E9 0005 
EF 09 FB sit 
60 0168 ¢3 00 0006 
AQ ge dO 43 
i voownen FS Hr 
AE 80 DO 0007D 
5E DD 00081 
FD94 §=6CF OF «(00083 
00 02 FB 00087 
01 DD OO08E 
0168 ¢3 dd 00090 
01 DD 00094 
F 03 FB 00096 
00000000" fr D7 0009D 
F 88 QOOAS 
Q00480EA oF 4 BOOaE 
53 DD 00080 
53 DD 00082 
54 DD 00084 
EF 93 FB 00086 
FF77 31 OOO0BD 
4C A2 D4 000CO 
04 000C3 
ase: + 
B CODE + 03CD 


5$: 


AX=11 Bliss-32 V4.0-74 
JOBCTL.SRCJEXECUTOR.B32;2 


cT 


CTX, ARGLST+4 


peLere PROCESS_KERNEL 
#2, SYSSCMKRNL 


taaaas 
#3, FIND PROCESS DATA 


QUEUE_REFERENCE_COUNT 
#64 gcse 


SJH_N 
#5,” COMPLETE_JOB 
6(R2) 


Page 
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ed ed eed ed eed ed ed ed ed 
0000 00000900000000 
MAGI & Ut 
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EXECTOR Executor control 1$-seo-1986 00:08:58 yane1t BLisg=32 v4-0-742 


39 1868 1 END 
86 1865 0 ELuvon 
PSECT SUMMARY 
Name Bytes Attributes 
COMMON 5024 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,A right 
CCDE 1169 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


cameenee Symbols ooo----- Pages Processing 
File Total Loaded Percent Mapped Time 
~-$255$DUA28: CSYSLIBILIB.L32;1 18619 55 0 1000 00:01.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EXECUTOR/OBJ=OBJ$:EXECUTOR MSRC$:EXECUTOR/UPDATE=(ENHS: EXECUTOR) 


; Size: 1097 code + 5096 data bytes 
Run Time: 00:22.7 
Elapsed Time: 01:45.5 
Lines/CPU Min: 4933 


‘eng Ae Rie 41514 
ry Used: 275 pages 
coe ation Complete 


019 AH-BT13A-SE ) a 


IGIT 
ONFI 
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